﻿Imports Control_Vuelos_BE
Imports Control_Vuelos_ADO

Public Class UsuarioBL
    Dim _Usuario As New UsuarioADO

    Public Function pr_ValidarUsuario(ByVal p_coduser As String, ByVal p_pswuser As String) As Boolean
        Return _Usuario.pr_ValidarUsuario(p_coduser, p_pswuser)
    End Function

    Public Function pr_Select_Usuarios(ByRef p_key As String) As DataTable
        Return _Usuario.pr_Select_Usuarios(p_key)
    End Function

    Public Function pr_Get_Usuario(ByRef p_coduser As String) As Usuario
        Return _Usuario.pr_Get_Usuario(p_coduser)        
    End Function

    Public Function pr_AgregarUsuario(ByVal p_UsuarioBE As Usuario) As Boolean
        Return _Usuario.pr_AgregarUsuario(p_UsuarioBE)
    End Function
    Public Function pr_RestablecerContrasena(p_coduser As String, p_pswuser As String) As Boolean
        Return _Usuario.pr_RestablecerContrasena(p_coduser, p_pswuser)
    End Function

    Public Function pr_ActivarDesactivarUsuario(p_coduser As String, p_flguser As String) As Boolean
        Return _Usuario.pr_ActivarDesactivarUsuario(p_coduser, p_flguser)
    End Function

    Public Function pr_EditarUsuario(ByVal p_UsuarioBE As Usuario) As Boolean
        Return _Usuario.pr_EditarUsuario(p_UsuarioBE)
    End Function

End Class
